home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / wb / remember.lha / Remember.fenster < prev    next >
Text File  |  1998-04-01  |  1KB  |  51 lines
  1. ;   Dieser Source wurde für Preass V1.3 von GUI-MAKER 1.0 erstellt.
  2. ;   Er benötigt die GUIENV.Library 
  3.  
  4. Open_Window[]:
  5.     Window=OpenGuiWindowA(000,011,640,50,"Remember",
  6.             #IDCMP_GADGETDOWN!IDCMP_GADGETUP!IDCMP_CLOSEWINDOW!IDCMP_REFRESHWINDOW!IDCMP_VANILLAKEY!IDCMP_RAWKEY!0,
  7.             #WFLG_DRAGBAR!WFLG_DEPTHGADGET!WFLG_CLOSEGADGET!WFLG_RMBTRAP!0,
  8.             #0,0)
  9.     Checkf Window,Open_Windowende
  10.     GUI=CreateGuiInfoA(Window,0)
  11. Open_Windowende:RTS
  12.  
  13. Create_Gadgets[]:
  14.     CreateGuiGadgetA(Gui,010,015,500,013,#Cycle_Kind,
  15.             >Gadget000Tags:GEG_Description,0|
  16.                 GEG_Text,GADGET000Text="_Task"|
  17.                 GEG_Flags,004|
  18.                 GEG_Varaddress,Name1|
  19.                 GTCy_Labels,Readynamen|
  20.                 Tag_done,0)
  21.  
  22.     CreateGuiGadgetA(Gui,510,015,105,013,#Button_Kind,
  23.             >Gadget001Tags:GEG_Description,0|
  24.                 GEG_Text,GADGET001Text="_Nimm"|
  25.                 GEG_Flags,016|
  26.                 Tag_done,0)
  27.  
  28.     CreateGuiGadgetA(Gui,100,030,410,013,#String_Kind,
  29.             >Gadget002Tags:GEG_Description,0|
  30.                 GEG_Text,GADGET002Text="_Befehl"|
  31.                 GEG_Varaddress,Befehlsstring|
  32.                 GEG_Flags,001|
  33.                 Tag_done,0)
  34.  
  35.     CreateGuiGadgetA(Gui,510,030,105,013,#Button_Kind,
  36.             >Gadget003Tags:GEG_Description,0|
  37.                 GEG_Text,GADGET003Text="_Ende"|
  38.                 GEG_Flags,016|
  39.                 Tag_done,0)
  40.  
  41.     {* IncBlock: Befehlsstring,100*}
  42.  
  43.     Result=DrawGuia(Gui,0)
  44.     RTS
  45.  
  46. Close_Window[]:
  47.     CloseGuiWindow(Window)
  48.     Window==0
  49.     RTS
  50.  
  51.